procedure TForm1.Button1Click(Sender: TObject);
begin
Windows.Beep(478,365);
end;